home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act8 / 00265.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  625 b   |  19 lines
  1. on exitFrame
  2.   global storecast, hathorig, hatvorig, hath, hatv
  3.   puppetSprite(1, 1)
  4.   set the castNum of sprite 1 to storecast
  5.   puppetSprite(27, 1)
  6.   if the locV of sprite 25 > 280 then
  7.     if the locH of sprite 25 > 320 then
  8.       set the locH of sprite 27 to 700
  9.     else
  10.       set the locH of sprite 27 to -60
  11.     end if
  12.     set the locV of sprite 27 to the locV of sprite 25 - 69
  13.   end if
  14.   set hathorig to the locH of sprite 27
  15.   set hatvorig to the locV of sprite 27
  16.   set hath to (the locH of sprite 25 + 28 - the locH of sprite 27) / 5.0
  17.   set hatv to (the locV of sprite 25 - 54 - the locV of sprite 27) / 5.0
  18. end
  19.